home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / hardlock.arc / HARDLOCK.ASM next >
Encoding:
Assembly Source File  |  1986-09-20  |  832 b   |  27 lines
  1.      include macros.asm
  2.      Begincom hardlock
  3.      jmp   start
  4. msg0     db    'Hardlock Completed Sucessfully',10,13,'$'
  5. msg1     db    'Hardlock Disk I/O error.',10,13,'$'
  6.  
  7. buffer     db    512 dup(?)
  8.  
  9. start     proc  near
  10.      mov   ax,0201h        ;read one sector
  11.      lea   bx,buffer       ;set up read address
  12.      mov   cx,1           ;read the partition table
  13.      mov   dx,0080h        ;On drive C
  14.      int   13H           ;execute read
  15.      jc    IO_FAIL           ;if carry - issue message
  16.      mov   byte ptr [bx+511],0 ;make disk unusable
  17.      mov   ax,0301h        ;set up write command
  18.      int   13H
  19.      lea   dx,msg0           ;point to OK message
  20.      jnc   SENDMSG           ;display msg
  21. IO_FAIL: lea   dx,msg1           ;point to failure message
  22. SENDMSG: mov   ah,9           ;dos display string
  23.      int   21h           ;send message
  24.      int   20h           ;terminate program
  25. start     endp
  26.      endcom hardlock
  27.